unit DMRelatorios_unt;

interface

uses
  SysUtils, Classes, DB, IBCustomDataSet, IBQuery;

type
  TDMRelatorios_frm = class(TDataModule)
    IBQRelacaoBeneficios: TIBQuery;
    IBQRelacaoBeneficiosDATALANCAMENTO: TDateField;
    IBQRelacaoBeneficiosIDBENEFICIO: TIntegerField;
    IBQRelacaoBeneficiosDESCRICAO: TIBStringField;
    IBQRelacaoBeneficiosIDPESSOA: TIntegerField;
    IBQRelacaoBeneficiosNOME: TIBStringField;
    IBQRelacaoBeneficiosREGISTRO: TIntegerField;
    IBQRelacaoAtendimentos: TIBQuery;
    IBQRelacaoAtendimentosDATA: TDateField;
    IBQRelacaoAtendimentosIDDOMICILIO: TIntegerField;
    IBQRelacaoAtendimentosNUMEROPASTA: TIntegerField;
    IBQRelacaoAtendimentosIDUSUARIO: TIntegerField;
    IBQRelacaoAtendimentosNOME: TIBStringField;
    IBQRelacaoAtendimentosHORA: TTimeField;
    IBQRelacaoAtendimentosIDPESSOA: TIntegerField;
    IBQRelacaoAtendimentosNOME1: TIBStringField;
    IBQRelacaoAtendimentosIDATENDIMENTO: TIntegerField;
    IBQRelacaoEncaminhamentos: TIBQuery;
    IBQRelacaoEncaminhamentosDATA: TDateField;
    IBQRelacaoEncaminhamentosIDUSUARIO: TIntegerField;
    IBQRelacaoEncaminhamentosNOME: TIBStringField;
    IBQRelacaoEncaminhamentosIDDOMICILIO: TIntegerField;
    IBQRelacaoEncaminhamentosNUMEROPASTA: TIntegerField;
    IBQRelacaoEncaminhamentosIDPESSOA: TIntegerField;
    IBQRelacaoEncaminhamentosNOME1: TIBStringField;
    IBQRelacaoEncaminhamentosIDENCAMINHAMENTO: TIntegerField;
    IBQRelacaoEncaminhamentosDESCRICAO: TIBStringField;
    IBQRelacaoEncaminhamentosHORA: TTimeField;
    IBQRelacaoEncaminhamentosIDREGISTRO: TIntegerField;
    IBQRelacaoPublico: TIBQuery;
    IBQRelacaoPublicoIDPUBLICO: TIBStringField;
    IBQRelacaoPublicoDESCRICAO: TIBStringField;
    IBQRelacaoPublicoVALORIDFDE: TIBBCDField;
    IBQRelacaoPublicoVALORIDFATE: TIBBCDField;
    IBQRelacaoPublicoIDDOMICILIO: TIntegerField;
    IBQRelacaoPublicoNUMEROPASTA: TIntegerField;
    IBQRelacaoPublicoIDRELACAORF: TIntegerField;
    IBQRelacaoPublicoDESCRICAO1: TIBStringField;
    IBQRelacaoPublicoIDPESSOA: TIntegerField;
    IBQRelacaoPublicoNOME: TIBStringField;
    IBQRelacaoPublicoDATANASCIMENTO: TDateField;
    IBQCadastroDesatualizado: TIBQuery;
    IBQCadastroDesatualizadoIDDOMICILIO: TIntegerField;
    IBQCadastroDesatualizadoNUMEROPASTA: TIntegerField;
    IBQCadastroDesatualizadoDATARENOVACAO: TDateField;
    IBQCadastroDesatualizadoDATAATUALIZACAO: TDateField;
    IBQInconsistenciaRenda: TIBQuery;
    IBQInconsistenciaRendaCODDOMICILIO: TIntegerField;
    IBQInconsistenciaRendaTOTALRENDAS: TIBBCDField;
    IBQInconsistenciaRendaTOTALDESPESAS: TIBBCDField;
    IBQInconsistenciaRendaAPURADO: TIBBCDField;
    IBQInconsistenciaIdadeRF: TIBQuery;
    IBQInconsistenciaIdadeRFIDDOMICILIO: TIntegerField;
    IBQInconsistenciaIdadeRFNOME: TIBStringField;
    IBQInconsistenciaIdadeRFIDADE: TLargeintField;
    IBQDuplicidadeDomicilio_M: TIBQuery;
    IBQDuplicidadeDomicilio_MOCORRENCIAS: TIntegerField;
    IBQDuplicidadeDomicilio_MENDERECO: TIBStringField;
    IBQDuplicidadeDomicilio_MNUMERO: TIntegerField;
    IBQDuplicidadeDomicilio_D: TIBQuery;
    IBQDuplicidadeDomicilio_DIDDOMICILIO: TIntegerField;
    IBQDuplicidadeDomicilio_DNUMEROPASTA: TIntegerField;
    IBQDuplicidadeDomicilio_DENDERECO: TIBStringField;
    IBQDuplicidadePessoas_M: TIBQuery;
    IBQDuplicidadePessoas_MOCORRENCIAS: TIntegerField;
    IBQDuplicidadePessoas_MNOME: TIBStringField;
    IBQDuplicidadePessoas_MDATANASCIMENTO: TDateField;
    IBQDuplicidadePessoas_D: TIBQuery;
    IBQDuplicidadePessoas_DIDPESSOA: TIntegerField;
    IBQDuplicidadePessoas_DIDDOMICILIO: TIntegerField;
    IBQDuplicidadePessoas_DNOME: TIBStringField;
    IBQDuplicidadePessoas_DDATANASCIMENTO: TDateField;
    IBQDuplicidadePessoas_DMAE: TIBStringField;
    IBQDuplicidadePessoas_DNATURALIDADE: TIBStringField;
    IBQDuplicidadePessoas_DCPF: TIBStringField;
    IBQDuplicidadePessoas_DNIS: TIBStringField;
    procedure IBQRelacaoBeneficiosAfterOpen(DataSet: TDataSet);
    procedure IBQRelacaoAtendimentosAfterOpen(DataSet: TDataSet);
    procedure IBQRelacaoEncaminhamentosAfterOpen(DataSet: TDataSet);
    procedure IBQRelacaoPublicoAfterOpen(DataSet: TDataSet);
    procedure IBQCadastroDesatualizadoAfterOpen(DataSet: TDataSet);
    procedure IBQInconsistenciaRendaAfterOpen(DataSet: TDataSet);
    procedure IBQInconsistenciaIdadeRFAfterOpen(DataSet: TDataSet);
    procedure IBQDuplicidadeDomicilio_MAfterOpen(DataSet: TDataSet);
    procedure IBQDuplicidadeDomicilio_DAfterOpen(DataSet: TDataSet);
    procedure IBQDuplicidadePessoas_MAfterOpen(DataSet: TDataSet);
    procedure IBQDuplicidadePessoas_DAfterOpen(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DMRelatorios_frm: TDMRelatorios_frm;

implementation

{$R *.dfm}

uses DMSistema_unt;

procedure TDMRelatorios_frm.IBQRelacaoBeneficiosAfterOpen(
  DataSet: TDataSet);
begin
   with IBQRelacaoBeneficios do
   begin
      try
         FetchAll;
         First;
      except
      end;
   end;
end;

procedure TDMRelatorios_frm.IBQRelacaoAtendimentosAfterOpen(
  DataSet: TDataSet);
begin
   with IBQRelacaoAtendimentos do
   begin
      try
         FetchAll;
         First;
      except
      end;
   end;
end;

procedure TDMRelatorios_frm.IBQRelacaoEncaminhamentosAfterOpen(
  DataSet: TDataSet);
begin
   with IBQRelacaoEncaminhamentos do
   begin
      try
         FetchAll;
         First;
      except
      end;
   end;
end;

procedure TDMRelatorios_frm.IBQRelacaoPublicoAfterOpen(DataSet: TDataSet);
begin
   with IBQRelacaoPublico do
   begin
      try
         FetchAll;
         First;
      except
      end;
   end;
end;

procedure TDMRelatorios_frm.IBQCadastroDesatualizadoAfterOpen(
  DataSet: TDataSet);
begin
   with IBQCadastroDesatualizado do
   begin
      try
         FetchAll;
         First;
      except
      end;
   end;
end;

procedure TDMRelatorios_frm.IBQInconsistenciaRendaAfterOpen(
  DataSet: TDataSet);
begin
   with IBQInconsistenciaRenda do
   begin
      try
         FetchAll;
         First;
      except
      end;
   end;
end;

procedure TDMRelatorios_frm.IBQInconsistenciaIdadeRFAfterOpen(
  DataSet: TDataSet);
begin
   with IBQInconsistenciaIdadeRF do
   begin
      try
         FetchAll;
         First;
      except
      end;
   end;
end;

procedure TDMRelatorios_frm.IBQDuplicidadeDomicilio_MAfterOpen(
  DataSet: TDataSet);
begin
   with IBQDuplicidadeDomicilio_M do
   begin
      try
         FetchAll;
         First;
      except
      end;
   end;
end;

procedure TDMRelatorios_frm.IBQDuplicidadeDomicilio_DAfterOpen(
  DataSet: TDataSet);
begin
   with IBQDuplicidadeDomicilio_D do
   begin
      try
         FetchAll;
         First;
      except
      end;
   end;
end;

procedure TDMRelatorios_frm.IBQDuplicidadePessoas_MAfterOpen(
  DataSet: TDataSet);
begin
   with IBQDuplicidadePessoas_M do
   begin
      try
         FetchAll;
         First;
      except
      end;
   end;
end;

procedure TDMRelatorios_frm.IBQDuplicidadePessoas_DAfterOpen(
  DataSet: TDataSet);
begin
   with IBQDuplicidadePessoas_D do
   begin
      try
         FetchAll;
         First;
      except
      end;
   end;
end;

end.
